0 POKE53280,0:POKE53281,0:PRINT"[147]"TAB(10)"HULLU  TIEDEMIES ..."
1 POKE808,232:IFA=0THENA=1:LOAD" HULLU1",8,1
2 FORN=0TO50:READA:POKE51200+N,A:NEXT
3 POKE53265,59:POKE53270,216
4 POKE53272,11:POKE56576,148
5 POKE251,0:POKE252,64:POKE253,0:POKE254,224:POKE820,63:POKE821,95:SYS51200
6 POKE251,0:POKE252,96:POKE253,0:POKE254,192:POKE820,207:POKE821,103:SYS51200
7 FORN=0TO9:GETA$:NEXT
8 GOSUB100
10 REM
20 PRINT"NEW":PRINT"LOAD"CHR$(34)" HULLU2"CHR$(34)",8,1":PRINT"[145][145][145][145]";
60 POKE631,13:POKE632,13:POKE633,82:POKE634,117:POKE635,13:POKE198,5
70 POKE44,16:POKE808,225:END
90 DATA8,72,152,72,164,251,204,52,3,240,21,160,0,177,251,145,253
91 DATA230,251,208,2,230,252,230,253,208,233,230,254,76,4,200,172,53,3,196
92 DATA252,208,228,160,0,177,251,145,253,104,168,104,40,96,0
100 DIMR(2,16),M1(6,6),M2(2,7)
101 FORN=1TO8:READJ(N),K(N):NEXT
102 A=278.46:B=LOG(2)/12:FORN=0TO2
103 FORM=1TO16:READR(N,M):NEXT:NEXT
104 DEFFNMU(X)=A*EXP(B*X)
105 DIMHI(94),LO(94)
106 FORN=26TO69:IFN=42THENN=60
107 HI(N)=INT(FNMU(N)/256)
108 LO(N)=INT(FNMU(N))-256*HI(N)
109 NEXT:FORN=1TO6:FORM=1TO6
110 READM1(N,M):NEXT:NEXT:FORN=1TO2
111 FORM=1TO7:READM2(N,M):NEXT:NEXT
120 L1=54272:L2=L1+7:L3=L2+7
121 H1=L1+1:H2=L2+1:H3=L3+1
122 V1=L1+4:V2=L2+4:V3=L3+4
130 POKE54296,15
131 POKEV1+1,105:POKEV1+2,0
132 POKEV2+1,100:POKEV2+2,0
133 POKEV3+1,5:POKEV3+2,0
200 FORI=0TO4:GOSUB1000:IFVITHENRETURN
210 NEXT:GOTO200
300 DATA1,1,2,2,1,1,3,2,4,1,5,2,4,1,6,2
301 DATA1,1,1,0,1,1,2,0,2,3,4,5,0,6,0,0
302 DATA1,0,1,0,2,0,3,0,3,4,0,4,5,6,7,0
303 DATA1,0,0,0,1,0,0,0,0,1,0,0,1,0,0,0
310 DATA65,65,65,65,60,62
320 DATA62,64,64,64,65,65
330 DATA62,64,64,65,67,69
340 DATA69,69,69,69,67,69
350 DATA67,64,64,65,67,69
360 DATA67,67,65,69,67,65
370 DATA41,36,41,36,33,29,26
380 DATA38,34,40,36,34,31,29
1000 FORN=1TO8+4*(I=4)
1010 FORM=1TO16
1020 T=TI:GOSUB2000
1030 IFT+10>TITHEN1030
1040 GETA$:IFA$<>""THENVI=1:RETURN
1050 NEXT:NEXT:RETURN
2000 T1=R(0,M)ANDI<4:T2=R(1,M)AND(I=1ORI=3):T3=R(2,M)ANDI>1
2001 IFT1THENPOKEV1,16
2002 IFT2THENPOKEV2,16
2003 IFT3THENPOKEV3,16
2010 IFT1THENPOKEH1,HI(M1(J(N),R(0,M)))
2020 IFT1THENPOKEL1,LO(M1(J(N),R(0,M)))
2030 IFT2THENPOKEH2,HI(M2(K(N),R(1,M)))
2040 IFT2THENPOKEL2,LO(M2(K(N),R(1,M)))
2050 IFT3THENPOKEH3,HI(69)
2060 IFT3THENPOKEL3,LO(69)
2070 POKEV1,17:POKEV2,33:POKEV3,17
2080 RETURN